home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / vumeter / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-01  |  3.4 KB  |  126 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1800
  6.    ClientTop       =   1830
  7.    ClientWidth     =   6690
  8.    Height          =   4545
  9.    Left            =   1740
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   6690
  13.    Top             =   1485
  14.    Width           =   6810
  15.    Begin VB.VScrollBar VScroll1 
  16.       Height          =   2055
  17.       Left            =   4080
  18.       Max             =   100
  19.       TabIndex        =   3
  20.       Top             =   240
  21.       Value           =   50
  22.       Width           =   255
  23.    End
  24.    Begin VB.HScrollBar HScroll1 
  25.       Height          =   255
  26.       Left            =   480
  27.       Max             =   100
  28.       TabIndex        =   1
  29.       Top             =   1080
  30.       Value           =   50
  31.       Width           =   2295
  32.    End
  33.    Begin VumeterLib.Vumeter Vumeter2 
  34.       Height          =   2055
  35.       Left            =   3120
  36.       TabIndex        =   2
  37.       Top             =   240
  38.       Width           =   855
  39.       _version        =   65536
  40.       _extentx        =   1508
  41.       _extenty        =   3625
  42.       _stockprops     =   1
  43.       backcolor       =   12632256
  44.       bordercolor     =   0
  45.       min             =   0
  46.       max             =   100
  47.       pos             =   50
  48.       outerbevel      =   1
  49.       innerbevel      =   0
  50.       outerbevelwidth =   4
  51.       innerbevelwidth =   8
  52.       borderwidth     =   2
  53.       shadowcolor     =   8421504
  54.       hilitecolor     =   16777215
  55.       highalarmcolor  =   255
  56.       lowalarmcolor   =   65280
  57.       highalarm       =   85
  58.       lowalarm        =   15
  59.       orientation     =   1
  60.       tickmarks       =   9
  61.       tickcolor       =   0
  62.       tickstyle       =   2
  63.    End
  64.    Begin VumeterLib.Vumeter Vumeter1 
  65.       Height          =   855
  66.       Left            =   480
  67.       TabIndex        =   0
  68.       Top             =   120
  69.       Width           =   2295
  70.       _version        =   65536
  71.       _extentx        =   4048
  72.       _extenty        =   1508
  73.       _stockprops     =   1
  74.       backcolor       =   12632256
  75.       bordercolor     =   0
  76.       min             =   0
  77.       max             =   100
  78.       pos             =   50
  79.       outerbevel      =   1
  80.       innerbevel      =   0
  81.       outerbevelwidth =   3
  82.       innerbevelwidth =   8
  83.       borderwidth     =   3
  84.       shadowcolor     =   8421504
  85.       hilitecolor     =   16777215
  86.       highalarmcolor  =   255
  87.       lowalarmcolor   =   65280
  88.       highalarm       =   85
  89.       lowalarm        =   15
  90.       orientation     =   0
  91.       tickmarks       =   11
  92.       tickcolor       =   0
  93.       tickstyle       =   0
  94.    End
  95. Attribute VB_Name = "Form1"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Private Sub HScroll1_Change()
  99. Vumeter1.Pos = HScroll1.Value
  100. End Sub
  101. Private Sub HScroll1_Scroll()
  102. Vumeter1.Pos = HScroll1.Value
  103. End Sub
  104. Private Sub VScroll1_Change()
  105. Vumeter2.Pos = 100 - VScroll1.Value
  106. End Sub
  107. Private Sub VScroll1_Scroll()
  108. Vumeter2.Pos = 100 - VScroll1.Value
  109. End Sub
  110. Private Sub Vumeter1_Alarm(Alarm As Integer)
  111. If Alarm = 1 Then
  112. MsgBox ("Low Alarm")
  113. End If
  114. If Alarm = 2 Then
  115. MsgBox ("High Alarm")
  116. End If
  117. End Sub
  118. Private Sub Vumeter2_Alarm(Alarm As Integer)
  119. If Alarm = 1 Then
  120. MsgBox ("Low Alarm")
  121. End If
  122. If Alarm = 2 Then
  123. MsgBox ("High Alarm")
  124. End If
  125. End Sub
  126.